
*****************************************
*****************************************
****Presidential Campaigns and the Fundamentals Reconsidered
****Peter K. Enns and Brian Richman
****Journal of Politics
****Replication: Table 2 in the Text
****		     And corresponding robustness checks reported in the appendix
*****************************************
*****************************************

**Set Working Directory
cd ""

use "EnnsRichman_2000anes.dta", clear

*******************************************
**Table 2
*******************************************
*balance data
cem daysbefelec polknow (#0) educ  (#0) mediaexp5 (#5) afam (#0) otherrace (#0) hisp (#0) south (#0) age(#3), treatment(ftf)
*Columns 1
logit cv30 ftf zpolknow zmediaexp5 zdaysbefelec zeduc zage zage2 if daysbefelec<-9 [iweight= cem_weights]
*Column 2
logit  dkvoteint ftf zpolknow zmediaexp5 zeduc zdaysbefelec zage zage2 if daysbefelec<-9  [iweight= cem_weights]


************************************
**Table A-8 in Appendix
**Evidence to support matching
************************************
logit ftf daysbefelec afam otherrace hisp south educ age age2 female hhincome dkincome



******************************
**Table A-9 in Appendix
**Column 1 of Table 2 in text, not sensitve to the measurement of ``correct'' vote intentions
******************************
*Column 1
logit cv14 ftf zpolknow zmediaexp5 zeduc zdaysbefelec zeduc zage zage2 if daysbefelec<-9 [iweight= cem_weights]
*Column 2
logit cv21 ftf zpolknow zmediaexp5 zeduc zdaysbefelec zeduc zage zage2 if daysbefelec<-9 [iweight= cem_weights]
*Not reported, but results also robust to including entire period of analysis
logit cv14 ftf zpolknow zmediaexp5 zeduc zdaysbefelec zeduc zage zage2 [iweight= cem_weights]
logit cv21 ftf zpolknow zmediaexp5 zeduc zdaysbefelec zeduc zage zage2 [iweight= cem_weights]


**overall imbalance before matching:
**Reported in Appendix
imb daysbefelec polknow educ   mediaexp5 afam  otherrace  hisp  south  age, treatment(ftf)



******************************************
**Table A-10 in Appendix
**Results are robust to a variety of modeling and measurement decisions
******************************************

*Columns 1 & 6
cem daysbefelec polknow (#0) educ  (#0) mediaexp5 (#5) afam (#0) otherrace (#0) hisp (#0) south (#0) age(#3), treatment(ftf)
logit  dkvoteint ftf zpolknow zmediaexp5 zeduc zdaysbefelec zage zage2  [iweight= cem_weights]
logit cv30 ftf zpolknow zmediaexp5 zeduc zdaysbefelec zage zage2 [iweight= cem_weights]
*Columns 2,7
cem daysbefelec polknow (#0) educ  (#0) mediaexp5 (#5) afam (#0) otherrace (#0) hisp (#0) south (#0) age(25 45 60), treatment(ftf)
logit  dkvoteint ftf zpolknow mediaexp5 zeduc daysbefelec  age age2 if daysbefelec<-9  [iweight= cem_weights]
logit cv30 ftf zpolknow zmediaexp5 zeduc daysbefelec age age2 if daysbefelec<-9  [iweight= cem_weights]
*Columns 3,8
cem daysbefelec polknow (#0) educ  (#0) mediaexp5 (#4) afam (#0) otherrace (#0) hisp (#0) south (#0) age(#3), treatment(ftf)
logit  dkvoteint ftf zpolknow mediaexp5 zeduc daysbefelec  age age2 if daysbefelec<-9    [iweight= cem_weights]
logit cv30 ftf zpolknow mediaexp5 zeduc daysbefelec  age age2 if daysbefelec<-9  [iweight= cem_weights]
*Columns 4,9
cem daysbefelec (#9) polknow (#0) educ  (#0) mediaexp5(#3) afam (#0) otherrace (#0) hisp (#0) south (#0), treatment(ftf)
logit dkvoteint ftf zpolknow  zmediaexp5 zeduc zdaysbefelec zage zage2 if daysbefelec<-9 [iweight= cem_weights]
logit cv30 ftf zpolknow  zmediaexp5 zeduc zdaysbefelec zage zage2 if daysbefelec<-9 [iweight= cem_weights]
*Columns 5,10
logit dkvoteint ftf zpolknow  zmediaexp5 zeduc zdaysbefelec zage zage2 south afam hisp otherrace strongpid if daysbefelec<-9
logit cv30 ftf zpolknow  zmediaexp5 zeduc zdaysbefelec zage zage2 south afam hisp otherrace strongpid if daysbefelec<-9

drop  cem_strata cem_matched cem_weights
